00100		TITLE LOOK
00200		INTERNAL LOOK,LOOKD,LOOKF,LOOKU
00300	
00400		CH←13
00500	
00600	REGS:	BLOCK 20
00700	
00800	;LOOK(<FILE>) FOR NO EXT., LOOKD() FOR .DAT, LOOKF() FOR .DMD
00900	;     LOOKU() FOR .FUN
00910	
00920	LOOKU:	0
00930		MOVSI 0,'FUN'
00940		JRST LOOK1
01000	
01100	LOOKF:	0	; F STANDS FOR FASTOUT
01200		MOVSI 0,'DMD'
01300		JRST LOOK1
01400	LOOKD:	0
01500		MOVSI 0,'DAT'
01600		JRST LOOK1
01700	LOOK:	0
01800		MOVEI	0,0
01900	LOOK1:	MOVEM	0,DIR+1
02000		MOVE	0,@(16)
02100		MOVEM 	0,FILNAM
02200		JSA 16, INTFIZ
02300		SETZM	DIR+2
02400		SETZM	DIR+3
02500		LOOKUP	CH,DIR
02600		TDZA	0,0
02700		MOVNI	0,1
02800		JRA 16,1(16)
02900	
03000	INTFIZ:	0	;INITS DSK FOR INPUT
03100		MOVEI REGS
03200		BLT REGS+3
03300		INIT CH,17
03400		SIXBIT/DSK/
03500		0
03600		HALT .-3
03700	;	ERROR <CAN'T INIT DSK!>
03800	
03900	INTF4:	MOVE 0,FILNAM#
04000		MOVEM 0,FN#
04100		MOVE 1,[POINT 7,FN]
04200	INTF3:	MOVE 2,[POINT 6,DIR]
04300		SETZM DIR
04400		MOVEI 3,5
04500	INTF1:	ILDB 0,1
04600		CAIN 0," "
04700		JRST INTF2
04800		SUBI 0,40
04900		IDPB 0,2
05000		SOJG 3,INTF1
05100	INTF2:	HRLZI REGS
05200		BLT 3
05300		JRA 16,0(16)
05400	
05500	DIR:	BLOCK 4
05600	
05700		END